home *** CD-ROM | disk | FTP | other *** search
/ Headbone Interactive / Headbone_Interactive_CD-ROM_Sampler_1995.iso / pc / demomain.dxr / 00003_Movie script- startMovie.ls < prev    next >
Encoding:
Text File  |  1995-11-01  |  1.4 KB  |  55 lines
  1. on startMovie
  2.   global gvfReturnToMain, gvfRealQuit, gvVolume, gSoundLevel1, gSoundLevel2
  3.   ResetGlobals()
  4.   set the keyDownScript to EMPTY
  5.   set the mouseDownScript to EMPTY
  6.   set the timeoutScript to EMPTY
  7.   setGlobalVars()
  8.   set gvfReturnToMain to 0
  9.   set gvfRealQuit to 0
  10.   set the keyDownScript to "checkKeyForQuit"
  11.   set the exitLock to 1
  12.   cursor(0)
  13. end
  14.  
  15. on stopMovie
  16.   global gSoundLevel1, gSoundLevel2
  17.   set the volume of sound 1 to gSoundLevel1
  18.   set the volume of sound 2 to gSoundLevel2
  19. end
  20.  
  21. on setGlobalVars
  22.   global SFX_EXT, MOV_EXT, DIR_SYM, IBM, gvCDHomePath, gSoundLevel1, gSoundLevel2, gvQuoteWait, gvFadeSndOnExit, gvSelectWait, gvQuitSong, gvVolume, gfMoreInfo
  23.   if voidp(IBM) then
  24.     set IBM to 256
  25.   end if
  26.   if voidp(DIR_SYM) then
  27.     if the machineType = IBM then
  28.       set DIR_SYM to "\"
  29.     else
  30.       set DIR_SYM to ":"
  31.     end if
  32.   end if
  33.   if voidp(MOV_EXT) then
  34.     set MOV_EXT to ".dxr"
  35.   end if
  36.   if voidp(SFX_EXT) then
  37.     set SFX_EXT to ".aif"
  38.   end if
  39.   if voidp(gvCDHomePath) then
  40.     set gvCDHomePath to the pathName
  41.   end if
  42.   set gfMoreInfo to 0
  43.   set gvFadeSndOnExit to 90
  44.   set gvCDHomePath to the pathName
  45.   set gvQuoteWait to 240
  46.   set gvSelectWait to 40
  47.   set gvQuitSong to "toodleoo"
  48.   set gvVolume to 4
  49.   set the soundLevel to gvVolume
  50.   set gSoundLevel1 to 255
  51.   set gSoundLevel2 to 255
  52.   set the volume of sound 1 to gSoundLevel1
  53.   set the volume of sound 2 to gSoundLevel2
  54. end
  55.